SELE 1
SET EXCLU OFF
USE &DR1&F4
IF NET_USE("&DR1&F4",.T.,'1',10)
   pack
   INDEX ON SUBSTR(INV1_NBER,1,4)+SUBSTR(INV1_NBER,9,4)+DTOS(DATE_INV) to &DR1&F44
   index on INV1_NBER to &DR1&F41
   INDEX ON COMP_CODE+DTOS(DATE_INV)+INV1_NBER to &DR1&F42
   INDEX ON DTOS(DATE_INV)+INV1_NBER to &DR1&F43
   INDEX ON COMP_CODE+INV1_NBER to &DR1&F45
ENDIF
